home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / PAINTS.BAS < prev    next >
BASIC Source File  |  1998-04-02  |  1KB  |  26 lines
  1. 10 CLEAR:SCREEN 0,0,0:KEY OFF:COLOR 15,0,0:CLS:BEEP
  2. 20 C1$=CHR$(40):C2$=CHR$(99):C3$=CHR$(41):C4$=CHR$(32):C5$=CHR$(67)
  3. 30 C6$=CHR$(111):C7$=CHR$(112):C8$=CHR$(121):C9$=CHR$(114):C10$=CHR$(105)
  4. 40 C11$=CHR$(103):C12$=CHR$(104):C13$=CHR$(116):C15$=CHR$(49):C16$=CHR$(57)
  5. 50 C18$=CHR$(51):C20$=CHR$(69):C22$=CHR$(115):C24$=CHR$(110):C25$=CHR$(83)
  6. 60 C27$=CHR$(102):LOCATE 13,26:PRINT C1$;C2$;C3$;C4$;C5$;C6$;C7$;C8$;C9$;
  7. 70 PRINT C10$;C11$;C12$;C13$;C4$;C15$;C16$;C16$;C18$;C4$;C20$;C9$;C22$;C10$;
  8. 80 PRINT C24$;C25$;C6$;C27$;C13$:FOR P=0 TO 50000!:NEXT P:CLS:COLOR 7,0,0
  9. 90 CLEAR:KEY OFF:SCREEN 1,0:CLS:BEEP:X=160:Y=101:C=1
  10. 100 DEF SEG=0:KF=PEEK(1047):POKE 1047,&H0:DEF SEG:'Lights OFF
  11. 110 PSET(X,Y),C:'X=0-319 & Y=0-199 & C=0-3
  12. 120 D$=INKEY$:IF D$="" OR D$="P" OR D$="M" OR D$="H" OR D$="K" THEN 120
  13. 130 IF RIGHT$(D$,1)="P" THEN Y=Y+1:GOTO 110:'Aƒaºì
  14. 140 IF RIGHT$(D$,1)="H" THEN Y=Y-1:GOTO 110:'Yukarì
  15. 150 IF RIGHT$(D$,1)="M" THEN X=X+1:GOTO 110:'Saº
  16. 160 IF RIGHT$(D$,1)="K" THEN X=X-1:GOTO 110:'Sol
  17. 170 IF RIGHT$(D$,1)="I" THEN X=X+1:Y=Y-1:GOTO 110:'Saº-Üst
  18. 180 IF RIGHT$(D$,1)="Q" THEN X=X+1:Y=Y+1:GOTO 110:'Saº-Alt
  19. 190 IF RIGHT$(D$,1)="G" THEN X=X-1:Y=Y-1:GOTO 110:'Sol-Üst
  20. 200 IF RIGHT$(D$,1)="O" THEN X=X-1:Y=Y+1:GOTO 110:'Sol-Alt
  21. 210 IF D$=CHR$(32) THEN C=C+1:IF C=4 THEN C=1:GOTO 110
  22. 220 IF D$=CHR$(27) THEN 240
  23. 230 GOTO 120
  24. 240 DEF SEG=0:POKE 1047,KF:DEF SEG:'Lights ON
  25. 250 SCREEN 0,0,0:WIDTH 80:KEY ON:CLS:BEEP:END
  26.